home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / adaptor.zip / ADAPT.ZIP / adaptor / examples / dalib / move / simple3.f < prev    next >
Text File  |  1993-03-23  |  1KB  |  44 lines
  1.       program move
  2.       real ha(5,5), a(5,5), b(6,6), c(5,5)
  3. cmf$  layout ha(:host)
  4.       integer i
  5.       a = 1
  6.       forall (j=1:6, i=1:6) b(i,j) = i + j
  7.       a(2:4,1:3) = b(4:6,3:5)
  8.       ha = a
  9.       do i = 1, 5
  10.         print 5, ha(i,:)
  11.       end do
  12.       print *, ' '
  13. c      1  1  1  1  1
  14. c      7  8  9  1  1
  15. c      8  9 10  1  1
  16. c      9 10 11  1  1
  17. c      1  1  1  1  1
  18.       print *, 'Results should be '
  19.       print *, '  1  1  1  1  1'
  20.       print *, '  7  8  9  1  1'
  21.       print *, '  8  9 10  1  1'
  22.       print *, '  9 10 11  1  1'
  23.       print *, '  1  1  1  1  1'
  24.       a(1:5,1:3) = b(1:5,3:5)
  25.       a(3:2,1:3) = b(3:2,2:4)
  26.       ha = a
  27.       do i = 1, 5
  28.         print 5, ha(i,:)
  29.       end do
  30.       print *, ' '
  31. c      4  5  6  1  1
  32. c      5  6  7  1  1
  33. c      6  7  8  1  1
  34. c      7  8  9  1  1
  35. c      9 10 11  1  1
  36.       print *, 'Results should be '
  37.       print *, '  4  5  6  1  1'
  38.       print *, '  5  6  7  1  1'
  39.       print *, '  6  7  8  1  1'
  40.       print *, '  7  8  9  1  1'
  41.       print *, '  8  9 10  1  1'
  42.   5   FORMAT (5F10.5)
  43.       end
  44.